User's Choice Windows CD/User's Choice Windows CD (CMS Software)(1993).iso/utility2/wine02bx.zip/LISP/UTILS/SYMBOL-S.ELC

Text File | 1993-03-28 | 2KB | 14 lines

;;; compiled by jwz@thalidomide on Tue Jun 30 23:30:39 1992
;;; from file /cadillac-th/jwz/emacs19/lisp/utils/symbol-syntax.el
;;; emacs version 19.2.1 Lucid.
;;; bytecomp version 2.07; 17-jun-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.

(if (and (boundp 'emacs-version)
     (or (and (boundp 'epoch::version) epoch::version)
         (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs19."))

(byte-code "└┴!¼é┬├─Mê┼╞Mê╟╚Mê╔╩Mê╦╠!ç" [boundp symbol-syntax-table-alist nil update-symbol-syntax-table-alist #[nil "┴ë:¡╓@¼å─┼!ꬽ@@¼å─╞!ê¬á@@ë9½ÿ@A½ä─╟!ê\n9½å\nJë¬w@\náê╚@@!¼å─╔!ê¬Ä@A¼ë@╩@@!íêAë¬'*ç" [symbol-syntax-table-alist nil item alist error "Missing alist item" "Alist item with null car" "Alist item expected to have null cdr" syntax-table-p "Alist item car expected to be symbol table" make-symbol-syntax-table] 4] get-symbol-syntax-table #[(norm-table) "└\n₧ë¼¥─ ê\n₧ë¼ô\nCB─ ê\n₧ë¼ä┼╞!ê    Aë¼ä┼╟!ê╚    !¼ä┼╔!ê    )ç" [nil result norm-table symbol-syntax-table-alist update-symbol-syntax-table-alist error "Syntax table missing from symbol-syntax-table-alist" "Alist item has null cdr" syntax-table-p "Non-syntax-table item in alist"] 2] make-symbol-syntax-table #[(in-table) "└ ┴\n!├─╔W½úH╩╦\"╠=½ì═╩╬\"╧\"IêTë¬Y,ç" [syntax-table copy-syntax-table in-table 0 nil syntax i out-table osyn 256 logand 255 3 logior -256 2] 7] show-chars-with-syntax #[(tables syntax) "└ ┴─Ä:½▄┴@ë╔\n9¼ä╦╠!ê9½êJë¬u═!ê\n╬W½Ü\nz=½è╨╤\n\"B\nTë\n¬b╥╙ƒ╘#D\nB,Aë¬!)\nƒ*ç" [syntax-table nil schars osyn ((set-syntax-table osyn)) tables chars table-symbol table 0 i error "bad argument non-symbol" set-syntax-table 256 syntax format "%c" mapconcat identity ""] 6] provide symbol-syntax] 2)